a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


1 15 


| wef ILE**1D**COMIRADSO 


foleleleleleolejlolelo) 
SOoCoooooooo 
oo oo oo 
oo oo oo 
oo oo oo 
oo coo +4 
Soo se S$ 
oo Sco oo 
folelelolelojojeolelq) 
SOooooo°o°o°0o 
mw nnn 
Aw Mmnnw 
mn mw yo es 
vatval mw Aart 
ww HN peat 
mn mw wre 
mw mn ww 
nen ww wen 
MAAnIAWN ww 
MMMM ww 
ananaaaaaa 
r=Y~-¥-1-1-1-1-1-1-1-) 
aa aa 
ea aa 
ea aa 
ea aa 
ea aa 
ea aa 
r=Y=¥~¥-1-1-1-1-1-1-1-1-1-1— 
S2Q0Q0GBQ00GR200008R 
$33333333333 
qaqdtadaeaetacdceacacaet 
and <<a 
aa iat 
«aa <<a 
aa << 
aa <«< 
aa << 
2 ££ ££ fgg ff @ @ ¢ 
qaaacadcaacaaac 
ecaoacn a a 
coca ao 
anc ca ca 
ca ca ca 
aa eacca 
aa cacae 
aca ca 
aa ca 
@eaecaeoeoooeoeococoro 
@meaacaacaaacacaacaae 
~o —— 
—~— “4 


oooooooo[oo 
ooooocoe0oeeo 


29 f=t=) 
oO oo 
oo Ss 
oo 88 
s oo 
Ssssssssss 
oooocecoeoo 
vv bard 
wu ww 
wv wes 
oa VV 
one Vv 
bate vv 
Pays) VYvU 
ov a) 


WMYYVYVYUUYUUUYY 
VMYVYVYUYYUUUUY 


nn NNNM 
aon NNNM 
nn nn wn 
nw Www nn 
nw nw nw 
nw Vw wn 
nw nw nw 
nn nn man 
NNMM nn 
NNNM nn 
oon “ 
“— _—— 


LLLLLLLLLL 
LLLLLLLLLL 
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; FORTRAN COMPATIBILITY = ASCII to RADSO 15-SEP-1984 23:47:22 VAX/VMS Macro v04-00 


HISTORY ; Detailed Current Edit History 
DECLARATIONS 
IRADSO = CONVERT HOLLERITH STRINGS TO RADIX=50 REPRESATATION 


Page 


1- 


; FORTRAN COMPATIBILITY = ASCII t 


fa ae | ee ee ee ee ee we ww lw ole lo lo lolololeololololeoleoleloleloleleololeolololalololelo) 
NOUS WN OS OOONAUE WN 0 ODO NIA UNE WIN O OONO UNE WN (OO ONOU EW 


REEL RES BWW Iinononononononononny 2 3 3 2 2 


K 15 
o RADSO 15-SEP-1984 247: AX/VMS Macro V04-0 P 
Pam ett 1 93:35:68 FORRTL. SRE tie COMIRADSO.MAR; 1 
~TITLE COM eS ate ; FORTRAN COMPATIBILITY = ASCII to RADSO conversion | 
-IDENT /1-004 3: File: COMIRADSO.MAR Edit: JAW1004 


—MARARARABRAARARASALARALALALALALEL ALAA ERR SALAS AS ESE R SERS RRR EEE RASA ERASER EES 


Srthd hg (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre 
ORDANCE WITH T R THE 


ONLY IN ACC CE WI F SUCH LICENSE or WITH 
INCLUSION OF THE ABOVE gpl od NOTICE. THIS SOFTWARE OR ANY OTHER 
BoE pening Ge MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


OT 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeePORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


+ 
° 
* 
* 
* 
* 
% 
* 
« 
* 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
’ 
* 
* 
* 
* 
* 
* 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

* 

* 

x 


ete Pete Ge Ge Ge Ge Ge Ge Ge Ge Ge 
eee eeeeeeeeeeeeeneene 


LARRARARRBRARSARARARAAAALAAAALARRRR RASA REARARE RRR ES ARREARS RR RA RRR RRR RAR RARE SSE SG 


SACILITY: FORTRAN COMPATABILITY LIBRARY 
“ABSTRACT: 


FORTRAN COMPATABILITY LIBRARY routine IRADS5O converts a stream 
of ASCII characters to RADSO words. 


VERSION: 1-002 
HISTORY: 


AUTHOR: 
Peter Yuo, 12-Sep-77: Version 0 


MODIFIED BY: 


L 15 
COM$IRADSO AN COMPAT TY -A A 1 / - 
cons} 0 IBILI SCII to RADSO 15-SEP =] =138¢ $380 13 AX/VMS Macro v04-0 Page 


; Detailed Current Edit History 6-SEP PORRTL. SREICOMIRADSO.MARS 1 
0 49 ~SBTTL HISTORY ; Detailed Current Edit History 
Edit History for Version 01 of ASCR5O 


- Define formal for RADSO so no ayeers vio. TNH 5-Jan-78 
- Make PSECT be F4PCOMPATSCODE. NH 5-Jan-78 
- - Bug fix for RADSO. JMT 5- Jane? 


Another bug fix for 
2 i, modules: 


Break COnBRA gs 


cone RS WD - anen asettt te 2 pagse conversion routine 


¥ 6 ° Posen copye cece O9 not 
-005 = Add ‘’_' directive. JS Mec -78 
-004 - Allow™second arounent $c be passed otther bY descriptor or by 


reference. SPR 11-3 JAW 04-Feb-1 


FW" OOONOULS WO 


M15 
MPATIBILITY = ASCII to RADSO 15-SEP-1984 23:47:22 VAX/VMS Macro v04-0 Page 3. 


COM$1RAD5SO 
1-004 6-SEP=1984 6 (CFORRT REIC COMIRADSO.MAR; 1 


“oO 


«SBTTL DECLARATIONS 


; INCLUDE FILES: 


; EXTERNAL SYMBOLS: 
-DSABL GBL 

ZEXTRN COMS$RS5OWD_R6 
: MACROS: 


SDOSCDEF ; Define descriptor symbols. 


; PSECT DECLARATIONS: 


0000 ~PSECT _F4PCOMPATSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT 


; EQUATED SYMBOLS: 


; OWN STORAGE: 


INPUT PARAMETERS: 


max_char_cnt.rw.r ; maximum number of chars to convert 


char_array.rbu.ra ascii string to be converted 


IMPLICIT INPUTS: 
NONE 


OU! PUT PARAMETERS: 


w 15 
COM$1RADSO ; FORTRAN COMPATIBILITY = ASCII .o RADSO uF ba Sth ad AX/VMS Macro Wiass Page 4 
1-004 [RADSO = CONVERT HOLLERITH STRINGS TO RA 6=SEP=-1984 10:53:06 CFORRTL.SRCJCOMIRAD50O.MAR;1 (4) | 
o -SBTTL IRADSO = CONVERT HOLLERITH STRINGS TO RADIX=-50 REPRESATATION 
A 

8 ; FUNCTIONAL DESCRIPTION: 
0 3 Aloorthai¢ steps: 
0 3 1) Initial ization 
0 ; ARS_REM = max char_cnt.rbu.ra 
0 : NEXT_INPUT_POSITION = char_array.rbu.ra 
0 : NEXT-OUTPUT_POSITION = rad?x50_array.rbu.ra 
0 : ACTUAL_CHAR el = 0 
0 : 2) Call COMS$$R50WD_R6 to convert one word at a time. 
0 ; If CHARS_REM =< 0 then return wiih function value = ACTUAL_CHAR_COUNT, 
0 : NOTE: Three characters of AScii! input are packed into each word 
0 ; of output in radix-50 format. The number of output word modified 
5 ; is computed by the expression (in integer mode) (ICNT+2)/3. 
5 ; CALLING SEQUENCE: 
0 3 Cno_char_conv.ww.vJ = IRADSO (max_char_cnt.rw.r, char_array.rbu.ra, 
3 Z radix50_array.wbu.ra) 

00000004 0 max_char_cnt = 4 3; Max_char_cnt.rw.r 

00000008 0 char_array = 8 3; char_array.rbu.ra 

0000000C 8 radix5O_array = 12 ; radix50_array.rbu.ra 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


OOOO CCOCOSOOOOSSOOOOSOSOOSOSCSOOSOSOOSOOOOSOOOOOOSOOOOOOOoOO 


datatadadadadataddiadababat ad Datadbababatad sab atadbatabaiadababadababdatatababad adad abad adadad adadabad bad 

SV BS BS BBB BE BE AINA AIA RoPUNPIPIPINPININIDY) 2 OO S SS OOOOOOCOOOCOCOCOOWOONO 

RO OONOA NEW $$ OOO NO NEW 0 OD NOUN EWN  O ODNOAU EWR OC OONAUE WN O OONO 
. 


3 radix50_array.wbu.ra ; output location for the result 
$ 3 of the conversion 
; IMPLICIT OUTPUTS: 

0 $ NONE 

5 3; COMPLETION CODES: 

0 3 NONE 

00 : 

00 : SIDE EFFECTS: 

00 : NONE 

00 ; 

00 

00 

007C 00 -ENTRY IRADSO, “M<R2, R3, R4, RS, ROD 
Bn 0s 3 standard call-by-reference entry 


—ZOMMOOWZ ES KOK TOM IOOCOZSSl ACH TOM OOCW!™S KCK TCO MMMIOOO!™T Sr ACK TOMO 


| 
| 
| 
| 
| 
| 


| COMS1RADSO ; FORTRAN COMPATIBILITY = ASCII to RADSO ams sb 9 95:80:82 AX/VMS Macro yon? Page § 
| 1-004 TRADSO = CONVERT HOLLERITH STRINGS TO RA 6=-SEP=-1984 7:53:06 CFORRTL.SRCICOMIRADSO.MAR; 1 (4) 
133 ; 
154 ; Initialization 
1 
55 048 3 : 139 MOVZWL @max char cnt(AP), R5  ; RS = maximum number of chars 
8 138 ; to be converted 
52 O08 AC 00 Britt MOVL char_array(AP), R2 ; R2 = address of input string 
OOA 160 ; _or descriptor 
OOFF BF 6 B1 QO0A 161 CMPW SCSW_LENGTH(R2), #255 ; Is Length <= 255? 
1 1A QOOF 186 BGTRU ;_If not, assume by reference. 
O€ 02 A2 91 0011 16 CMPB SCS$B_DTYPE(R2), #DSCSK_BTYPE_T : Is data type T? 
OA \¢ $13 164 BNEQU ; If not, assume by reference. 
01 O3 a2 9 17 165 CMPB DSCSB_CLASS(R2), #DSCSK_CLASS_S : Is class $? 
04 BF 01B 166 BNEQU $ 3 not, assume by reference. 

52 04 A2 DO 001D 167 MOVL DSCSA_POINTER(R2), R2 ; Use address in descriptor. : 
54 OC AC dO 0021 198 5$ MOVL radix5O_array(AP), R4 ; R4& = address of the output location 
50 04 0025 1 CLRL RO ; RO = ACTUAL_CHAR_COUNT = 0 

0057 «171 
0027 \7¢ ; If CHARS REM =< Q then return with function_value equal to ACTUAL_CHAR_COUNT 
0027 173 ; else calT RSOWD_RS to convert one word at a time. 
0027 174; 
0027 175 
0027 176 108: ; 
000.9000°EF 16 0027 #177 JSB COMSSR50WD_R6 ; convert one word at a time 
8 51 #B0 on6. 178 MOVW R1, (R4)+ ; Output one word at a time 
55 DS 0030 179 TSTL R5 ; any more? 
FS 14 0032 180 BGTR 108 ; branch if so 
04 0034 181 RET 3; return with RO = ACTUAL_CHAR_COUNT 
0035 182 
0035 183 
0035 184 - END 


rs SSS SRS ss teh Snes senses sees 


-—-—-- a ee a 


C 16 
COMS$1RADSO ; FORTRAN COMPATIBILITY = ASCII to RADSO 1 


5- =3E0- 1986 $3730: 82 AX/VMS Macro voeaoy Page 6 
Symbol tatle 6-SEP=1984 10:53:06 (CFORRTL. SRC CICOM QMIRADSO.MAR; 1 (4) 
CHAR_ARRAY = 00000008 
COMSSRSOWD _R6 eertenree 
DSCSA_POINTER = 8° $0008 
DSCSB_CLASS = 00 8 0 
DSCSB_DTYPE = 000 4 
DSCSK_CLASS_S = 000 bp 
DSCSK_DTYPE-T = 000 43 
DSC$W_LENGTA = 0000000 
1RADSO 00000000 RG 02 
MAX _CHAR_CNT = 00000004 
RADTX5O_ARRAY = 0000000C 
pees s es Sem eeercenee + 
! : Psect synopsis : 

PSECT name Allocation PSECT No. Attributes 
° e 00 000000 < 99 ' 3 NOPIC USR CON ABS LCL ot te NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 0°) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_F 4PCOMPATSCODE 00000035 53.) b Ze PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 

er + 

' ; Performance indicators ! 

aeseseeweeseseusenncases} 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.12 00:00:00.72 
Command processing 104 00:00:00.56 00:00:02.20 
Pass 1 137 00:00:01.76 00:00:06.94 
Symbol table sort 0 00:00:00.16 oes Sos FH 
Pass 2 46 00:00:00.52 00:00:01.86 
Symbol table output 3 os a 00:00:00.02 
Psect synopsis output 2 00:00:00.0 00:00:00.06 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 323 00:00:03.17 00:00:12.07 


The working set Limit was 1050 pages. 

8165 bytes (16 pages) of virtual memory were used to buffer the intermediate co 

There were 10 pages of symbol table space oh ecetee to hold 136 non-local and 33 local symbols. 
184 source Lines were read in Pass 1, "ate" object records in Pass 2 

8 pages of virtual memory were used to define 7 macros. 


wow ete ew ewe meron sr awenr smu n + 


Macro Library name Sate Macros defined 
“$255SDUA28:(SYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE= (GLOBAL, TRACEBACK) /LIS=L1S$:COMIRAD50/0BJ=OBJ$:COMIRADSO MSRC$:COMIRADSO/UPDATE=(ENHS: COMIRADSO) 


AL EQUIPMENT CORPORATION | 


Q178 8481138 SE D : 
0] c DENTIAL .AND PROPRIETARY 


VAX/VMS V4.0. 


Hi 


